SET COLO TO BG+/B,W+/N
@ 10,1 CLEA TO 23,42
DO BOXT WITH 10,3,"NAME : "+PAT_NAME,'BG+','B',.F.,.F.
DO BOXT WITH 12,3,"FIRST NAME : "+PAT_F_NAME,'BG+','B',.F.,.F.
DO BOXT WITH 14,3,"MID. INIT. : "+PAT_M_INIT+"   SEX : "+PAT_SEX,'BG+','B',.F.,.F.
DO BOXT WITH 16,3,"DATE OF BIRTH : "+DTOC(PAT_DOB),'BG+','B',.F.,.F.
DO BOXT WITH 18,3,"NATIONALITY : "+PAT_NATIO,'BG+','B',.F.,.F.
do boxt with 20,3,"CODE : "+PAT_FILCOD+' '+PAT_CODCRP+' '+PAT_CODCRE+' '+PAT_CODDAT+' '+PAT_CODTYP,'BG+','B',.F.,.F.
NOR=RECNO()
DO BOXT WITH 7,43,"Record Number : "+TRANS(NOR,"######"),'BG+','B',.F.,.F.
